home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / BOMBER_GOTO.TCL < prev    next >
Encoding:
Text File  |  2002-03-23  |  1.6 KB  |  72 lines
  1. #-----------------------------------------------------------
  2. # Bomber bekommen fuer das normale Fliegen ein Extra-Script,
  3. # weil sie Ziele anders anfliegen muessen
  4. #-----------------------------------------------------------
  5.  
  6. # eine Root fuer Anflugmanoever
  7. new nroot bomber/goto
  8. sel bomber/goto
  9.  
  10. # einfaches Anfliegen
  11. new ncommandlist goto
  12. goto.setadjusttype      reach
  13. goto.settestcommand     bgoto_gototest
  14. goto.addcommand true 0 0 -10 false 0 0 0 nothing 5.0
  15.  
  16. proc bgoto_gototest {} { 
  17.  
  18.     if {[.hasguidetarget] == "true"} {
  19.         return 0.1
  20.     } else {
  21.         if {[.doinrun] == "true"} {
  22.             return 0.1
  23.         } else {
  24.             return 1.0
  25.         }
  26.     }
  27. }
  28.  
  29. # Abdrehen um erneut Anflauf zu nehmen
  30. new ncommandlist inrun
  31. inrun.setadjusttype      horimaneuver
  32. inrun.settestcommand     bgoto_inruntest
  33. inrun.addcommand true 0 0 -500 false 0 0 0 nothing 10.0
  34.  
  35. proc bgoto_inruntest {} { 
  36.  
  37.     if {[.hasguidetarget] == "true"} {
  38.         return 0.1
  39.     } else {
  40.         if {[.doinrun] == "true"} {
  41.             return 1.0
  42.         } else {
  43.             return 0.1
  44.         }
  45.     }
  46. }
  47.  
  48. # Mitfliegen. Wir brauchen eine Manoeveraehnliche Kurve, die am Ziel
  49. # (dessen Position und Richtung) haengt. Das ist "approach"
  50. new ncommandlist guide
  51. guide.setadjusttype     guide
  52. guide.settestcommand    bgoto_guidetest
  53. guide.addcommand true 0 0 -50 false 0 0 0 nothing 1.0
  54.  
  55. proc bgoto_guidetest {} {
  56.  
  57.     if {[.hasguidetarget] == "true"} {
  58.         if {[.reachedtarget] == "true"} {
  59.             return 1.0
  60.         } else {
  61.             return 0.0
  62.         }
  63.     } else {
  64.         return 0.0
  65.     }
  66. }
  67.  
  68. sel ..
  69. sel ..
  70.  
  71.  
  72.